home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00575_miscellaneous scripts.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  526 b   |  26 lines
  1. on exitCycle
  2.   global gMode
  3.   normalCenterSpeaker()
  4.   go(gMode & "loop")
  5. end
  6.  
  7. on chooseMode theMode
  8.   global gOldTimer, gTimer, gInPlay
  9.   when mouseDown then handleMouse
  10.   set gTimer to gOldTimer
  11.   set gOldTimer to 0
  12.   hideJumpControl()
  13.   if theMode <> "NONE" then
  14.     doMode(#REGULAR, theMode)
  15.   end if
  16.   set gInPlay to 1
  17. end
  18.  
  19. on pickMenu theChoice, flags
  20.   global gMenuLast, gTest, gTimer, gBlindfold
  21.   when timeOut then nothing
  22.   set gMenuLast to theChoice
  23.   drawFlags(flags, gTest, gTimer, gBlindfold)
  24.   go(gMenuLast)
  25. end
  26.